home *** CD-ROM | disk | FTP | other *** search
/ Club KidSoft Volume 3 #2 / CKSPCV32.BIN / movies / clubart.dir / 00001_Script_Movie Script next >
Text File  |  1995-04-06  |  17KB  |  496 lines
  1. on startMovie
  2.   global gCurrentButton 
  3.   global gMediaFolder
  4.   
  5.   StdStartMovie
  6.   if InitKidsoft() = FALSE then
  7.     alert "Error in InitKidsoft"
  8.   end if
  9.   
  10.   --  InitKidsoft      -- standard init
  11.   set movPath = gMediaFolder & "CLUBROOM"
  12.   if getPos(the searchPaths, movPath) = 0 then
  13.     add (the searchPaths, movPath)  -- find the movies here
  14.   end if
  15.   
  16.   set gCurrentButton = 3
  17.   set the preLoadEventAbort = TRUE
  18.   
  19.   cursor 0
  20.   
  21.   -- Art Play 
  22.   global gSpritePlayOver
  23.   global gSpritePalyDown
  24.   global gSpriteNextOff
  25.   global gSpriteNextOver
  26.   global gSpriteNextDown
  27.   global gSpritePrevOff
  28.   global gSpritePrevOver
  29.   global gSpritePrevDown
  30.   global gSpriteThumb
  31.   
  32.   global gArtPlayOffStart
  33.   global gArtPlayOffEnd
  34.   
  35.   
  36.   --position lists
  37.   --  global gFishPosition
  38.   --  global gHandPosition
  39.   global gArtNumFrames
  40.   global gArtFrame
  41.   global gArtPlay
  42.   global gArtFrameBarStep
  43.   global gArtFrameBarH
  44.   global gArtFrameBarV
  45.   global gArtMove
  46.   global gArtPlayFirstTime
  47.   global gArtSprite1
  48.   global gArtSprite2
  49.   global gArtSprite3
  50.   global gArtSprite4
  51.   global gArtPositionSprite1
  52.   global gArtPositionSprite2
  53.   global gArtPositionSprite3
  54.   global gArtPositionSprite4
  55.   
  56.   set gArtNumFrames to 15
  57.   set gArtPlay to FALSE
  58.   set gArtSprite1 to 14
  59.   set gArtSprite2 to 15
  60.   set gArtSprite3 to 16
  61.   set gArtSprite4 to 17
  62.   
  63.   set gArtPositionSprite1 to  [point(200, 251), point(478, 182), point(441, 158), point(261, 222), ¼
  64.   point(324, 206), point(248, 200), point(214, 240), point(192, 206), point(226, 256), point(300, 305), ¼
  65.   point(320, 240),  point(320, 240), point(218, 168), point(176, 150), point(165, 114), point(165, 114)]
  66.   
  67.   set gArtPositionSprite2 to [point(205, 132), point(202, 132), point(262, 158), point(340, 102), point(394, 122),¼
  68.  point(487, 145), point(519, 215), point(378, 142), point(232, 156), point(284, 252), point(336, 216),¼
  69.  point(256, 192), point(197, 133), point(131, 99), point(151, 84), point(151, 84)]
  70.   
  71.   set gArtPositionSprite3 to [point(205, 132), point(202, 132), point(262, 158), point(340, 102), point(394, 122),¼
  72.  point(487, 145), point(519, 215), point(378, 142), point(232, 156), point(284, 252), point(336, 216),¼
  73.  point(256, 192), point(197, 133), point(131, 99), point(151, 84), point(151, 84)]
  74.   
  75.   set gArtPositionSprite4 to [point(205, 132), point(202, 132), point(262, 158), point(340, 102), point(394, 122),¼
  76.  point(487, 145), point(519, 215), point(378, 142), point(232, 156), point(284, 252), point(336, 216),¼
  77.  point(256, 192), point(197, 133), point(131, 99), point(151, 84), point(151, 84)]
  78.   
  79.   global gArtCast1
  80.   global gArtCast2
  81.   global gArtCast3
  82.   global gArtCast4
  83.   set gArtCast1 to [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15]
  84.   set gArtCast2 to [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15]
  85.   set gArtCast3 to [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15]
  86.   set gArtCast4 to [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15]
  87.   
  88.   global gArtSounds
  89.   set gArtSounds = ["PLAYBALL.AIF", "HORSEY.AIF", "DUCK.AIF", "JBDANCE.AIF", ¼
  90. "TRAFFIC.AIF", "3POINTER.AIF"]
  91.   
  92.   global gArtMarker
  93.  global gArtMarkerSprite
  94.   set gArtMarkerSprite to 22
  95.   set gArtMarker to [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15]
  96.   cursor 0 -- normal cursor
  97. end
  98.  
  99. ---------------------------------------------------------
  100. -- free the lists
  101. ---------------------------------------------------------
  102. on stopMovie
  103.   global gArtPositionSprite1
  104.   global gArtPositionSprite2
  105.   global gArtPositionSprite3
  106.   global gArtPositionSprite4
  107.   global gArtSounds
  108.   
  109.   set gArtPositionSprite1=0
  110.   set gArtPositionSprite2=0
  111.   set gArtPositionSprite3=0
  112.   set gArtPositionSprite4=0
  113.   set gArtSounds = 0
  114.   global gArtCast1
  115.   global gArtCast2
  116.   global gArtCast3
  117.   global gArtCast4
  118.   set gArtCast1 to 0
  119.   set gArtCast2 to 0
  120.   set gArtCast3 to 0
  121.   set gArtCast4 to 0
  122.   
  123.   global gArtMarker
  124.   set gArtMarker to 0
  125.   
  126. end
  127. -------------------------------------------------------
  128. --Test the buttons in Club Art
  129. -------------------------------------------------------
  130. on testClubArtButtons
  131.   global gCurrentButton
  132.   global gSpriteReturnOver
  133.   global gSpriteReturnDown
  134.   global gSpritePlayOver
  135.   global gSpritePlayDown
  136.   global gSpriteNextOff
  137.   global gSpriteNextOver
  138.   global gSpriteNextDown
  139.   global gSpritePrevOff
  140.   global gSpritePrevOver
  141.   global gSpritePrevDown
  142.   global gSpriteThumb
  143.   global gArtPlay
  144.   
  145.   --put gCurrentButton,  the frame, label ("Art Demos") 
  146.   
  147.   if (gCurrentButton = 0) then  
  148.     if rollOver(5) = TRUE and the frame <> marker(0) + 1 then -- Frame Bar
  149.       set gCurrentButton  = 5
  150.       StartSound "CLICK"
  151.       set the castNum of sprite gSpriteThumb to the number of cast "MKRHILITE.PIC" 
  152.       updateStage
  153.     else if rollOver(6) = TRUE then  -- Play Button
  154.       set gCurrentButton  = 6
  155.       StartSound "CLICK"
  156.       set the visible of sprite gSpritePlayOver to TRUE
  157.       updateStage
  158.     else if rollOver(7) = TRUE and the frame >=  label ("Art DK") then   --Prev Art
  159.       set gCurrentButton  = 7
  160.       StartSound "CLICK"
  161.       set the visible of sprite gSpritePrevOver to TRUE
  162.       updateStage
  163.     else if rollOver(8) = TRUE and the frame < label ("Art DR") then  --Next Art
  164.       set gCurrentButton  = 8
  165.       StartSound "CLICK"
  166.       set the visible of sprite gSpriteNextOver to TRUE
  167.       updateStage
  168.       
  169.     else if rollOver(10) = TRUE then  --return button
  170.       set  gCurrentButton  = 10
  171.       StartSound "CLICK"
  172.       set the visible of sprite gSpriteReturnOver = TRUE
  173.       updateStage
  174.       --    else if rollOver( gSpriteThumb) and the frame <> marker(0) = TRUE then
  175.       --      set  gCurrentButton  = gSpriteThumb
  176.       --      set the castNum of sprite gSpriteThumb to the number of cast "MKRHILITE.PIC"
  177.       --      updateStage
  178.     end if
  179.   else
  180.     if (rollOver(gCurrentButton) = FALSE) then           -- not over any button
  181.       
  182.       --    888888888888888888888
  183.       if (gCurrentButton = 5 ) and the frame <> marker(0) + 1 then -- Frame Bar
  184.         set the castNum of sprite gSpriteThumb to the number of cast "MARKER.PIC"
  185.       else if (gCurrentButton = 6)  then  -- Play Button
  186.         set the visible of sprite gSpritePlayOver to FALSE
  187.         set the visible of sprite gSpritePlayDown to FALSE
  188.       else if (gCurrentButton = 7)  then   --Prev Art
  189.         set the visible of sprite gSpritePrevOver to FALSE
  190.         set the visible of sprite gSpritePrevDown to FALSE
  191.       else if (gCurrentButton = 8)  then  --Next Art
  192.         set the visible of sprite gSpriteNextOver to FALSE      
  193.         set the visible of sprite gSpriteNextDown to FALSE      
  194.       else if (gCurrentButton = 10)  then  --return button
  195.         set the visible of sprite gSpriteReturnOver = FALSE
  196.         set the visible of sprite gSpriteReturnDown = FALSE
  197.       end if
  198.       
  199.       --   888888888888888888888
  200.       set gCurrentButton = 0
  201.       updateStage
  202.     end if
  203.   end if
  204. end
  205.  
  206. -------------------------------------------------------
  207. --test Club Art buttons on a mouse Down
  208. -------------------------------------------------------
  209.  
  210. on testDownClubArtButtons
  211.   global gCurrentButton
  212.   global gSpriteReturnOver
  213.   global gSpriteReturnDown
  214.   global gSpritePlayOver
  215.   global gSpritePlayDown
  216.   global gSpriteNextOff
  217.   global gSpriteNextOver
  218.   global gSpriteNextDown
  219.   global gSpritePrevOff
  220.   global gSpritePrevOver
  221.   global gSpritePrevDown
  222.   global gArtPlay
  223.   
  224.   if gCurrentButton = 7 then   --Prev Art
  225.     set the visible of sprite gSpritePrevOver = FALSE
  226.     set the visible of sprite gSpritePrevDown = TRUE
  227.     updateStage
  228.     
  229.   else if gCurrentButton = 8 then  --Next Art
  230.     set the visible of sprite gSpriteNextOver = FALSE
  231.     set the visible of sprite gSpriteNextDown = TRUE
  232.     updateStage
  233.     
  234.   else if gCurrentButton = 10 then
  235.     set the visible of sprite gSpriteReturnOver = FALSE
  236.     set the visible of sprite gSpriteReturnDown = TRUE
  237.     updateStage
  238.     
  239.     --  else if rollOver(gSpriteThumb) = TRUE then
  240.     --    set  gCurrentButton  = gSpriteThumb
  241.     --    set the castNum of sprite gSpriteThumb to the number of cast "MKRCLICK.PIC"
  242.     --    updateStage
  243.   end if
  244.   
  245. end
  246. --------------------------------------------------------------------------
  247. on clubArtPuppetsOff
  248.   global gArtSprite1
  249.   global gArtSprite2
  250.   global gArtSprite3
  251.   global gArtSprite4
  252.   
  253.   set the puppet of sprite gArtSprite1 to FALSE
  254.   set the puppet of sprite gArtSprite2 to FALSE
  255.   set the puppet of sprite gArtSprite3 to FALSE
  256.   set the puppet of sprite gArtSprite4 to FALSE
  257.   
  258.   --  set the moveableSprite of sprite gArtSprite1 to FALSE
  259.   --  set the moveableSprite of sprite gArtSprite2 to FALSE
  260.   --  set the moveableSprite of sprite gArtSprite3 to FALSE
  261.   updateStage
  262. end
  263.  
  264. -------------------------------------------------------
  265. --test Club Art buttons on a mouse Up
  266. -------------------------------------------------------
  267.  
  268. on testUpClubArtButtons
  269.   global gCurrentButton
  270.   global gSpriteReturnOver
  271.   global gSpriteReturnDown
  272.   global gSpritePlayOver
  273.   global gSpritePlayDown
  274.   global gSpriteNextOff
  275.   global gSpriteNextOver
  276.   global gSpriteNextDown
  277.   global gSpritePrevOff
  278.   global gSpritePrevOver
  279.   global gSpritePrevDown
  280.   global gSpriteThumb
  281.   global gArtPlay
  282.   global gArtSprite1
  283.   global gArtSprite2
  284.   global gArtSprite3
  285.   global gArtSprite4
  286.   global gArtPositionSprite1
  287.   global gArtPositionSprite2
  288.   global gArtPositionSprite3
  289.   global gArtPositionSprite4
  290.   
  291.   
  292.   if gCurrentButton = 7 and the frame > label ("Art 2") then   --Prev Art
  293.     set the visible of sprite gSpritePrevOver = TRUE
  294.     set the visible of sprite gSpritePrevDown = FALSE
  295.     clubArtPuppetsOff
  296.     cursor 4
  297.     updateStage
  298.     go to marker(-1)
  299.     
  300.   else if gCurrentButton = 8 then  --Next Art
  301.     set the visible of sprite gSpriteNextOver = TRUE
  302.     set the visible of sprite gSpriteNextDown = FALSE
  303.     clubArtPuppetsOff
  304.     cursor 4
  305.     updateStage
  306.     go to marker(1)
  307.     
  308.     --  else if gCurrentButton = gSpriteThumb then
  309.     --    set the castNum of sprite gSpriteThumb to the number of cast "MKRHILITE.PIC"
  310.     --    set place = (the mouseH - gArtFrameBarH) / gArtFrameBarStep
  311.     --    go to  marker(0) + 2 + place
  312.     --    updateStage
  313.     
  314.   else if gCurrentButton = 10 and rollover(10)  then              -- return to the entrance   
  315.     clubArtButtonsOff
  316.     clubArtPuppetsOff
  317.     
  318.     cursor 4
  319.     go to movie "CLUBROOM"
  320.   end if
  321.   
  322. end
  323. -------------------------------------------------------
  324. --Move sprites Club Art
  325. -------------------------------------------------------
  326. on moveSpritesClubArt
  327.   global gArtPlay
  328.   global gFishPosition
  329.   global gHandPosition
  330.   global gArtFrame
  331.   global gArtSprite1
  332.   global gArtSprite2
  333.   global gArtSprite3
  334.   global gArtSprite4
  335.   global gArtPositionSprite1
  336.   global gArtPositionSprite2
  337.   global gArtPositionSprite3
  338.   global gArtPositionSprite4
  339.   
  340.   if gArtPlay = FALSE then
  341.     if the clickOn = gArtSprite1 then
  342.       set newLoc  to point( the locH of sprite gArtSprite1, the locV of sprite gArtSprite1 )
  343.       setAt gArtPositionSprite1, gArtFrame, newLoc
  344.     else if the clickOn = gArtSprite2 then
  345.       set newLoc  to point( the locH of sprite gArtSprite2, the locV of sprite gArtSprite2)
  346.       setAt gArtPositionSprite2, gArtFrame, newLoc
  347.     else if the clickOn = gArtSprite3 then
  348.       set newLoc  to point( the locH of sprite gArtSprite3, the locV of sprite gArtSprite3)
  349.       setAt gArtPositionSprite3, gArtFrame, newLoc
  350.     else if the clickOn = gArtSprite4 then
  351.       set newLoc  to point( the locH of sprite gArtSprite4, the locV of sprite gArtSprite4)
  352.       setAt gArtPositionSprite4, gArtFrame, newLoc
  353.     end if
  354.   end if
  355. end 
  356. -------------------------------------------------------
  357. --Turn off button sprites
  358. -------------------------------------------------------
  359. on clubArtButtonsOff
  360.   global gCurrentButton
  361.   global gArtPlayOffStart
  362.   global gArtPlayOffEnd  
  363.   
  364.   set i = gArtPlayOffStart
  365.   repeat while i <= gArtPlayOffEnd
  366.     set the visible of sprite i to FALSE
  367.     set i = i + 1
  368.   end repeat
  369.   
  370.   set gCurrentButton = 0
  371. end  
  372. -------------------------------------------------------
  373. --positoin the pupets in the Art Gallery
  374. -------------------------------------------------------
  375. on advanceArt
  376.   global gFishPosition
  377.   global gHandPosition
  378.   global gArtNumFrames
  379.   global gArtSprite1
  380.   global gArtSprite2
  381.   global gArtSprite3
  382.   global gArtSprite4
  383.   global gArtPositionSprite1
  384.   global gArtPositionSprite2
  385.   global gArtPositionSprite3
  386.   global gArtPositionSprite4
  387.   global gArtCast1
  388.   global gArtCast2
  389.   global gArtCast3
  390.   global gArtCast4
  391.   global gArtMarker, gArtMarkerSprite
  392.   global gArtPlay
  393.   global gArtPlayFirstTime
  394.   global gArtFrame 
  395.   global gArtFrameBarStep
  396.   global gArtFrameBarH
  397.   global gArtFrameBarV
  398.   
  399.   -- index for the frame
  400.   set gArtFrame =  the frame - 1 -marker(0) 
  401.   
  402.   if not gArtPlay = FALSE then
  403.     -- put "advanceArt"
  404.     if(gArtPlayFirstTime) then
  405.       -- append  gFishPosition, point (the locH of sprite 14, the locV of sprite 14)
  406.       setAt gArtPositionSprite1, gArtFrame, point (the locH of sprite gArtSprite1, the locV of sprite gArtSprite1)
  407.       setAt  gArtPositionSprite2, gArtFrame, point  (the locH of sprite gArtSprite2, the locV of sprite gArtSprite2)
  408.       setAt  gArtPositionSprite3, gArtFrame, point  (the locH of sprite gArtSprite3, the locV of sprite gArtSprite3)  
  409.       setAt  gArtPositionSprite4, gArtFrame, point  (the locH of sprite gArtSprite4, the locV of sprite gArtSprite4)
  410.       setAt gArtCast1, gArtFrame, the castNum of sprite gArtSprite1
  411.       setAt gArtCast2, gArtFrame, the castNum of sprite gArtSprite2
  412.       setAt gArtCast3, gArtFrame, the castNum of sprite gArtSprite3
  413.       setAt gArtCast4, gArtFrame, the castNum of sprite gArtSprite4
  414.       setAt gArtMarker, gArtFrame, the locH of sprite gArtMarkerSprite
  415.       -- put "set"&&gArtFrame
  416.     else
  417.       set the locH of sprite gArtSprite1 to  getAt(getAt(gArtPositionSprite1, gArtFrame), 1)
  418.       set the locV of sprite gArtSprite1  to  getAt(getAt(gArtPositionSprite1, gArtFrame), 2)
  419.       
  420.       set the locH  of sprite gArtSprite2  to  getAt(getAt (gArtPositionSprite2, gArtFrame), 1)
  421.       set the locV  of sprite gArtSprite2  to  getAt(getAt (gArtPositionSprite2, gArtFrame), 2)
  422.       
  423.       set the locH  of sprite gArtSprite3 to  getAt(getAt (gArtPositionSprite3, gArtFrame), 1)
  424.       set the locV  of sprite gArtSprite3  to  getAt(getAt (gArtPositionSprite3, gArtFrame), 2)
  425.       
  426.       set the locH  of sprite gArtSprite4 to  getAt(getAt (gArtPositionSprite4, gArtFrame), 1)
  427.       set the locV  of sprite gArtSprite4  to  getAt(getAt (gArtPositionSprite4, gArtFrame), 2)
  428.       
  429.       set  the castNum of sprite gArtSprite1 to getAt (gArtCast1, gArtFrame)
  430.       set  the castNum of sprite gArtSprite2 to getAt (gArtCast2, gArtFrame)
  431.       set  the castNum of sprite gArtSprite3 to getAt (gArtCast3, gArtFrame)
  432.       set  the castNum of sprite gArtSprite4 to getAt (gArtCast4, gArtFrame)
  433.     end if
  434.   end if
  435. end
  436. --**************************************************************************
  437.  
  438. --on positionFrameThumb
  439. --  global gArtFrameBarStep
  440. --  global gArtFrameBarH
  441. --  global gArtFrameBarV
  442. --  global gArtFrame 
  443. --  global gArtNumFrames
  444. --  
  445. --  if gArtFrameBarStep > 0 then
  446. --    set testPos to (the mouseH - the left of sprite 19 + gArtFrameBarStep / 2) / gArtFrameBarStep
  447. --    set testPos to testPos + 1
  448. --    if testPos < 1 then set testPos to 1
  449. --    if testPos > gArtNumFrames then  set testPost to gArtNumFrames
  450. --    
  451. --    set gArtFrame = testPos
  452. --    set the locV of sprite 20  to gArtFrameBarV
  453. --    set the locH of sprite 20 to gArtFrameBarH + (gArtFrame - 1) * gArtFrameBarStep
  454. --    
  455. --    set the locH of sprite 14 to  getAt(getAt(gFishPosition, gArtFrame), 1)
  456. --    set the locV of sprite 14  to  getAt(getAt(gFishPosition, gArtFrame), 2)
  457. --    
  458. --    set the locH  of sprite 15  to  getAt(getAt (gHandPosition, gArtFrame), 1)
  459. --    set the locV  of sprite 15  to  getAt(getAt (gHandPosition, gArtFrame), 2)
  460. --    
  461. --    go to frame marker(0) + gArtFrame - 1
  462. --    
  463. --    
  464. --  end if
  465. --end
  466. --------------------------------------------
  467. on moveArtSprite artSprite, artPosition
  468.   global gArtPlay
  469.   global gArtFrame
  470.   
  471.   if gArtPlay = FALSE then
  472.     set myH to the mouseH
  473.     set myV to the mouseV
  474.     set posH to the locH of sprite artSprite
  475.     set posV to the locV of sprite artSprite
  476.     if the puppet of sprite artSprite = FALSE then
  477.       set the puppet of sprite artSprite to TRUE
  478.       updateStage
  479.       put "Puppet off error " & artSprite
  480.     end if
  481.     
  482.     repeat while the mouseDown
  483.       -- put "down on fish" && the mouseDown
  484.       
  485.       set deltaH to the mouseH - myH + posH
  486.       set deltaV to the mouseV - myV + posV
  487.       set the locH of sprite artSprite to deltaH
  488.       set the locV of sprite artSprite to deltaV
  489.       updateStage
  490.     end repeat
  491.     
  492.     set newLoc  to point( the locH of sprite artSprite, the locV of sprite artSprite )
  493.     setAt artPosition, gArtFrame, newLoc
  494.   end if
  495. end
  496.